home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Blitz Basic 2.1 / Ultimate Blitz Basic 2.1 (1997)(Acid Software).iso / blitz2_pddisk_3 / tt < prev    next >
Text File  |  1997-10-02  |  658b  |  26 lines
  1. inittd:
  2.   DEFTYPE .IOStdReq myio
  3.   DEFTYPE .MsgPort myport
  4.   myport\mp_Node\ln_Type=4
  5.   myport\mp_MsgList\lh_Head=&myport\mp_MsgList\lh_Tail
  6.   myport\mp_MsgList\lh_TailPred=&myport\mp_MsgList\lh_Head
  7.   myio\io_Message\mn_Node\ln_Type=5
  8.   myio\io_Message\mn_ReplyPort=&myport
  9.   myio\io_Message\mn_Length=SizeOf.IOStdReq
  10.   If OpenDevice_("trackdisk.device",0,myio,0)<>0 Then End
  11.   signal.l=AllocSignal_(-1):If signal<0 Then End
  12.   myport\mp_SigBit=signal
  13.   myport\mp_SigTask=FindTask_(0)
  14.   Return
  15.  
  16. seektd:
  17.   myio\io_Command=$8000+10         ;then seek to zero
  18.   myio\io_Offset=0
  19.   DoIO_ myio
  20.   Return
  21.  
  22. finittd:
  23.   CloseDevice_ myio
  24.   FreeSignal_ signal
  25.   Return
  26.